home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 27 / Mail_Madness_27_2000_-_Side_C.d64 / disk id aendern (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  29 lines
  1. 10 print"[147]","  [196][201][211][203][160][201][196][160][195][200][193][206][199][197][210]":remrene w. poirier * compute vol.1/iss.5/p.83
  2. 20 print""tab(21)chr$(34):print"[205]it diesem [208]rogramm konnen"
  3. 30 printtab(17)chr$(34):print"[196]isk-[206]ame & [201][196] geandert werden"
  4. 40 forl=1to10:print"[192][192][192][192]";:next
  5. 45 print"[201]n welchem [204]aufwerk befindet sich die"
  6. 50 printtab(3)chr$(34):print"[218]u andernde [196]iskette [0/1] ? ";:gosub220:dv=val(x$)
  7. 60 dv$=x$:ifx$<"0"orx$>"1"goto20
  8. 70 print""chr$(34):print"[193]nderung von  [196]isk-[206][146]ame"
  9. 75 printtab(9)"oder [196]isk-[201][146]d ? ";
  10. 80 gosub220:ifx$<>"n"andx$<>"i"goto70
  11. 90 open15,8,15:print#15,"i"+dv$:open1,8,3,"#":print#15,"u1:3"dv",18,0"
  12. 95 ifx$="n"goto170
  13. 100 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$
  14. 105 print"[196]erzeitige [196]isk-[201][196] ist "chr$(34)a$b$c$d$e$chr$(34)
  15. 110 input"[206]eue [196]isk-[201][196] (5 [218]eichen) ";ni$:ni$=left$(ni$+"     ",5)
  16. 120 print#15,"b-p:3,162":print#1,ni$;:print#15,"u2:3"dv",18,0
  17. 130 i$[178]"i"[170][202]([196](dv),2):[152]15,i$
  18. 140 [153]"load"[163]30)[199](34):[153]"str$as str$irectory zeigt, dass die atnenderung"
  19. 150 [153][163]16)[199](34):[153]"korrekt durchgefuhrt wurde:
  20. 160 print">$"dv$:print"[145][145][145][145][145]":poke198,2:poke631,13:poke632,13:end
  21. 170 print#15,"b-p:3,144":dn$="":forl=1to16:get#1,a$:dn$=dn$+a$:next
  22. 180 print"[196]erzeitiger [196]isk-[206]ame ist:":print:printchr$(34)dn$chr$(34)
  23. 190 print"[206]euer [196]isk-[206]ame (16 [218]eichen)":inputnd$
  24. 200 nd$=left$(nd$+"                ",16)
  25. 210 print#15,"b-p:3,144":print#1,nd$;:print#15,"u2:3"dv",18,0":goto130
  26. 220 poke204,0
  27. 230 getx$:ifx$=""goto230
  28. 240 wait207,1,1:poke204,1:printx$:return
  29.